#Include "Protheus.ch"

USER FUNCTION TstDuplic()
LOCAL cTitulo := "TstDuplic"
LOCAL nMargem := 37.795276  // 1cm = 37.795276px
LOCAL nTamPag := 0
LOCAL nLargPag := 0
Local nMeioPag := 0
LOCAL oReport := NIL

oReport := TMSPrinter():New(cTitulo)
oReport:SetPaperSize(9)
oReport:SetPortrait()
oReport:Setup()

nTamPag := oReport:nHorzRes()
nMeioPag := nTamPag / 2
nLargPag := oReport:nVertRes() - nMargem

oReport:StartPage()
oReport:Box(nMargem, nMargem, nTamPag - nMargem, nLargPag - nMargem)
oReport:EndPage()
oReport:Preview()	
RETURN NIL